跪求 下一篇 上一篇 的代码[名字好玩吧?]

来源：百度知道 编辑：UC知道 时间：2024/06/16 03:44:38
我们常常在浏览网站文章、新闻的时候，都会发现，上一篇新闻，这下一张图片这样的代码，但不知这样的效果怎么做的。应该可以用简短的ASP语句就可以实现，但贱弟不才，实在新手，不栗赐教大家。如谁能给出这样的代码，实感3Q。

上一张图片：
下一张图片：
上一张新闻：
下一张新闻：

其实就是一个分页程序...
给你一段程序..先看看...有不明白的地方可以发消息我..
<%
if request("page")<>"" then
currentPage=cint(request("page"))
If currentpage<=0 Then currentpage=1
else
currentPage=1
end If

sql="SELECT id, title, pub_date, FileDir FROM webnews1 where pub_date<'"&year(now)&"-"&month(now)&"-"&day(now)&"'"
If newsclassid<>"" And IsNumeric(newsclassid) Then
sql=sql&" and newsclass="&newsclassid
End if
sql=sql&" ORDER BY create_date DESC"

'response.write sql

Set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,3,1
If rs.bof And rs.eof Then
response.write "<tr><td height=30 colspan=4 align=center><font color=red>暂无！</font></td></tr>"
Else
MaxPerPage=30
totalPut=rs.recordcoun